home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0195.lzh / AMOSLIST / text0121.txt < prev    next >
Encoding:
Text File  |  1995-02-01  |  1.6 KB  |  52 lines
  1.   OK, here are the bugfixes for the Creator version of the extension.
  2. Include the appropriate procedure in each program that uses the extension,
  3. and call it as the first instruction of the program.  (If your program
  4. uses bank 7 for something else, choose a different, unused bank number to
  5. replace the Reserve, Loke, Call, and Erase statements.)  Sorry for all the
  6. trouble.
  7.  
  8.   --Andy Church (achurch@goober.mbhs.edu)
  9.     AMOS Development Team Member (e-mail: adt@clare.tased.edu.au)
  10.     WWW: http://www.mbhs.edu/~achurch/
  11.  
  12. --------
  13. Procedure _FIX_INTUITION
  14.    Reserve As Work 7,4
  15.    Loke Start(7),$200D4E75
  16.    Call Start(7)
  17.    Erase 7
  18.    D=Leek(Dreg(0)+$58)
  19.    B=$1242
  20.    For I=1 To 21
  21.       Read A,C
  22.       Loke D+B,$60000000+(A-B-2)
  23.       Doke D+C,B
  24.       Add B,4
  25.    Next I
  26.    Data $86EC,$4C2,$86A6,$4D2,$8780,$E06,$8726,$E16,$86F6,$E22,$8786,$E2A
  27.    Data $87B8,$E38,$87E6,$E4A,$8078,$108A,$8166,$10A8,$80E8,$10C0
  28.    Data $82D2,$10CA,$81D6,$10DE,$8352,$114E,$83B6,$1162,$8854,$118E
  29.    Data $888C,$11A8,$88D4,$11BA,$85D0,$1204,$8428,$1220,$881E,$F0A
  30. End Proc
  31. --------
  32. Procedure _FIX_INTUITION_DEMO
  33.    Reserve As Work 7,4
  34.    Loke Start(7),$200D4E75
  35.    Call Start(7)
  36.    Erase 7
  37.    D=Leek(Dreg(0)+$58)
  38.    B=$1242
  39.    For I=1 To 23
  40.       Read A,C
  41.       Loke D+B,$60000000+(A-B-2)
  42.       Doke D+C,B
  43.       Add B,4
  44.    Next I
  45.    Data $87E2,$4C2,$879C,$4D2,$8876,$E06,$881C,$E16,$87EC,$E22,$887C,$E2A
  46.    Data $88AE,$E38,$88DC,$E4A,$805E,$1070,$816E,$108A,$80F0,$10A0,$825C,$10A8
  47.    Data $81DE,$10C0,$83C8,$10CA,$82CC,$10DE,$8448,$114E,$84AC,$1162,$894A,$118E
  48.    Data $8982,$11A8,$89CA,$11BA,$86C6,$1204,$851E,$1220,$8914,$F0A
  49. End Proc
  50. --------
  51.  
  52.